Option Explicit On 
Option Strict On

Public Class DTransOption
    Private bOnline As Boolean = False
    Private bOffline As Boolean = False
    Private sNetResName As String = ""
    'this implementation ignores the Dialup Instructions option
    Private sAccess As String = ""
    Private sCompOS As String = ""
    Private sOffMedia As String = ""
    Private sRecordDens As String = ""
    Private sRecDensUnits As String = ""
    Private sRecFormat As String = ""
    Private sCompat As String = ""

    Public Property boolOnline() As Boolean
        Get
            boolOnline = bOnline
        End Get
        Set(ByVal Value As Boolean)
            bOnline = Value
        End Set
    End Property

    Public Property boolOffline() As Boolean
        Get
            boolOffline = bOffline
        End Get
        Set(ByVal Value As Boolean)
            bOffline = Value
        End Set
    End Property

    Public Property NetworkName() As String
        Get
            NetworkName = sNetResName
        End Get
        Set(ByVal Value As String)
            sNetResName = Value
        End Set
    End Property

    Public Property Access() As String
        Get
            Access = sAccess
        End Get
        Set(ByVal Value As String)
            sAccess = Value
        End Set
    End Property

    Public Property ComputerOS() As String
        Get
            ComputerOS = sCompOS
        End Get
        Set(ByVal Value As String)
            sCompOS = Value
        End Set
    End Property

    Public Property OfflineMedia() As String
        Get
            OfflineMedia = sOffMedia
        End Get
        Set(ByVal Value As String)
            sOffMedia = Value
        End Set
    End Property

    Public Property RecDensity() As String
        Get
            RecDensity = sRecordDens
        End Get
        Set(ByVal Value As String)
            sRecordDens = Value
        End Set
    End Property

    Public Property DensityUnits() As String
        Get
            DensityUnits = sRecDensUnits
        End Get
        Set(ByVal Value As String)
            sRecDensUnits = Value
        End Set
    End Property

    Public Property RecFormat() As String
        Get
            RecFormat = sRecFormat
        End Get
        Set(ByVal Value As String)
            sRecFormat = Value
        End Set
    End Property

    Public Property Compatible() As String
        Get
            Compatible = sCompat
        End Get
        Set(ByVal Value As String)
            sCompat = Value
        End Set
    End Property

End Class
